home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2003 November / CD Rom Data Kasım 2003.iso / lingo.ini < prev    next >
Encoding:
Text File  |  2003-10-23  |  1.5 KB  |  35 lines
  1. -- This is the text file LINGO.INI.  It is designed
  2. -- to allow the execution of Lingo on Director start-up.
  3.  
  4. -- Some functionality is not permitted from the on startup handler
  5. -- for example, 'put' statements don't function from the startup handler
  6.  
  7. -- To try out the on startup handler, uncomment the 3 example lines in the handler
  8. -- you should hear a 'beep' while launching  & then typing
  9. -- showGlobals in the message window will display our message
  10.  
  11. -- To comment out the lines below afterward, use two dashes (--)
  12. -- as in the beginning of this line.
  13.  
  14. on startup
  15.   -- beep
  16.   -- global eEgg
  17.   -- eEgg = "Hi! - from the Director Engineering Team"
  18.      
  19.      set the soundkeepdevice to 0
  20.      
  21.      global tbsearchpath  
  22.      set tbsearchpath=[]  
  23.  
  24.      append(the searchpaths, the applicationPath & "Media") 
  25.      append(the searchpaths, the applicationPath & "Media\Albumler") 
  26.      append(the searchpaths, the applicationPath & "Media\3DGaleri") 
  27.      append(the searchpaths, the applicationPath & "Media\Egitim") 
  28.      append(the searchpaths, the applicationPath & "Media\Film") 
  29.      append(the searchpaths, the applicationPath & "Media\ScreenSaver") 
  30.      append(the searchpaths, the applicationPath & "Media\videomix") 
  31.      append(the searchpaths, the applicationPath & "Media\Wallpaper")
  32.      append(the searchpaths, the applicationPath & "Media\Surpriz") 
  33.      append(the searchpaths, the applicationPath & "3DGaleri\movie") 
  34. end startup
  35.